Creating
a gambas2
program,
step by step, a telephone index
From : http://listingambas.blogspot.com/2011/06/introducir-datos-imagen.html
In order to enter the picture, we will use a dialog box.
Let's create a new global variable that contains the image chosen path. (to add in the module var)
Clicking on the picture box will run the following code: (put this code in main form)
From : http://listingambas.blogspot.com/2011/06/introducir-datos-imagen.html
Entering Data: Image
Let's create a new global variable that contains the image chosen path. (to add in the module var)
PUBLIC ImagePath AS String
Clicking on the picture box will run the following code: (put this code in main form)
PUBLIC SUB
Picture BoxPhoto_MouseDown
()
' The Stretch variable controles resizing of picture. Set to 'true' for acting.
Picture BoxPhoto. Stretch =
TRUE
Dialog. Title =
"Select a file to open "
Dialog. Path =
User. NAME
Dialog. Filter = [ "*. jpg" , "JPG" , . "*.png" , "PNG" , "*. bmp" , "BMP" ]
IF NOT Dialog. OpenFile () THEN
Picture
BoxPhoto. Picture =
Picture [
Dialog. Path ]
'Global variable controling path to pictures
var. path_Picture =
Replace
$ (Dialog. Path , "" , Chr $
(
92 ) & "" )
ENDIF
END
 Improvement with version 2: Replace $. This command replaces
the " " (space) in the name of a path by "\ " (backslash + space)
that is the way that linux understands spaces between the words
in the pathname or file.
|